home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / SUBnoteUI.fl < prev    next >
Text File  |  2005-03-14  |  16KB  |  450 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0105 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include <stdlib.h>} {public
  10. } 
  11.  
  12. decl {\#include <stdio.h>} {public
  13. } 
  14.  
  15. decl {\#include <string.h>} {public
  16. } 
  17.  
  18. decl {\#include "../globals.h"} {public
  19. } 
  20.  
  21. decl {\#include "WidgetPDial.h"} {public
  22. } 
  23.  
  24. decl {\#include "EnvelopeUI.h"} {public
  25. } 
  26.  
  27. decl {\#include "FilterUI.h"} {public
  28. } 
  29.  
  30. decl {\#include "../Misc/Util.h"} {public
  31. } 
  32.  
  33. decl {\#include "../Params/SUBnoteParameters.h"} {public
  34. } 
  35.  
  36. decl {\#include "PresetsUI.h"} {public
  37. } 
  38.  
  39. class SUBnoteharmonic {: {public Fl_Group}
  40. } {
  41.   Function {make_window()} {private
  42.   } {
  43.     Fl_Window harmonic {
  44.       xywh {329 403 90 225} type Double hide
  45.       class Fl_Group
  46.     } {
  47.       Fl_Slider mag {
  48.         callback {int x=0;
  49. if (Fl::event_button1()) x=127-(int)o->value();
  50.    else o->value(127-x);
  51. pars->Phmag[n]=x;
  52. if (pars->Phmag[n]==0) o->selection_color(0);
  53.     else o->selection_color(222);}
  54.         tooltip {harmonic's magnitude} xywh {0 15 10 115} type {Vert Knob} box FLAT_BOX selection_color 222 labelcolor 0 maximum 127 step 1 value 127
  55.         code0 {o->value(127-pars->Phmag[n]);}
  56.         code1 {if (pars->Phmag[n]==0) o->selection_color(0);}
  57.       }
  58.       Fl_Slider bw {
  59.         callback {int x=64;
  60. if (Fl::event_button1()) x=127-(int)o->value();
  61.    else o->value(x);
  62. pars->Phrelbw[n]=x;}
  63.         tooltip {harmonic's bandwidth} xywh {0 135 10 75} type {Vert Knob} box FLAT_BOX selection_color 222 maximum 127 step 1 value 64
  64.         code0 {o->value(127-pars->Phrelbw[n]);}
  65.       }
  66.       Fl_Box {} {
  67.         xywh {10 170 5 5} box FLAT_BOX color 45
  68.         code0 {if (n+1==MAX_SUB_HARMONICS) o->hide();}
  69.       }
  70.       Fl_Box {} {
  71.         label 01
  72.         xywh {0 210 10 15} labelfont 1 labelsize 9 align 20
  73.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  74.       }
  75.       Fl_Box {} {
  76.         label 01
  77.         xywh {0 0 10 15} labelfont 1 labelsize 9 align 20
  78.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  79.       }
  80.     }
  81.   }
  82.   Function {SUBnoteharmonic(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  83.     code {n=0;} {}
  84.   }
  85.   Function {init(SUBnoteParameters *pars_,int n_)} {} {
  86.     code {pars=pars_;
  87. n=n_;
  88. make_window();
  89. harmonic->show();
  90. end();} {}
  91.   }
  92.   Function {refresh()} {} {
  93.     code {mag->value(127-pars->Phmag[n]);
  94. if (pars->Phmag[n]==0) mag->selection_color(0);
  95. bw->value(127-pars->Phrelbw[n]);} {selected
  96.     }
  97.   }
  98.   Function {~SUBnoteharmonic()} {} {
  99.     code {harmonic->hide();
  100. hide();
  101. //delete(harmonic);} {}
  102.   }
  103.   decl {SUBnoteParameters *pars;} {}
  104.   decl {int n;} {}
  105. } 
  106.  
  107. class SUBnoteUI {: {public PresetsUI_}
  108. } {
  109.   Function {make_window()} {} {
  110.     Fl_Window SUBparameters {
  111.       label {SUBsynth Parameters}
  112.       xywh {26 214 735 390} type Double hide
  113.     } {
  114.       Fl_Scroll {} {
  115.         xywh {5 140 435 245} type HORIZONTAL box THIN_UP_BOX
  116.       } {
  117.         Fl_Pack harmonics {open
  118.           xywh {10 145 425 235} type HORIZONTAL
  119.           code0 {for (int i=0;i<MAX_SUB_HARMONICS;i++){h[i]=new SUBnoteharmonic(0,0,15,o->h(),"");h[i]->init(pars,i);}}
  120.         } {}
  121.       }
  122.       Fl_Button {} {
  123.         label Close
  124.         callback {SUBparameters->hide();}
  125.         xywh {625 365 105 20} box THIN_UP_BOX labelfont 1 labelsize 12
  126.       }
  127.       Fl_Group {} {
  128.         label AMPLITUDE
  129.         xywh {5 5 215 135} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 align 17
  130.       } {
  131.         Fl_Value_Slider vol {
  132.           label Vol
  133.           callback {pars->PVolume=(int)o->value();}
  134.           tooltip Volume xywh {10 25 140 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  135.           code0 {o->value(pars->PVolume);}
  136.         }
  137.         Fl_Value_Slider vsns {
  138.           label {V.Sns}
  139.           callback {pars->PAmpVelocityScaleFunction=(int) o->value();}
  140.           tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 45 140 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  141.           code0 {o->value(pars->PAmpVelocityScaleFunction);}
  142.         }
  143.         Fl_Dial pan {
  144.           label Pan
  145.           callback {pars->PPanning=(int) o->value();}
  146.           tooltip {Panning (leftmost is Random)} xywh {185 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  147.           code0 {o->value(pars->PPanning);}
  148.           class WidgetPDial
  149.         }
  150.         Fl_Group ampenv {
  151.           label {SUBsynth - Amplitude Envelope} open
  152.           xywh {10 65 205 70} box FLAT_BOX color 51 align 144
  153.           code0 {o->init(pars->AmpEnvelope);}
  154.           class EnvelopeUI
  155.         } {}
  156.       }
  157.       Fl_Group {} {
  158.         xywh {495 325 235 35} box THIN_UP_FRAME
  159.       } {
  160.         Fl_Counter filterstages {
  161.           label {Filter Stages}
  162.           callback {pars->Pnumstages=(int) o->value();}
  163.           tooltip {How many times the noise is filtered} xywh {515 340 45 15} type Simple labelfont 1 labelsize 10 align 1 minimum 1 maximum 5 step 1 textsize 10
  164.           code0 {o->value(pars->Pnumstages);}
  165.         }
  166.         Fl_Choice magtype {
  167.           label {Mag.Type}
  168.           callback {pars->Phmagtype=(int) o->value();}
  169.           xywh {585 340 65 15} down_box BORDER_BOX labelfont 1 labelsize 10 align 1 textsize 12
  170.           code0 {o->value(pars->Phmagtype);}
  171.         } {
  172.           menuitem {} {
  173.             label Linear
  174.             xywh {20 20 100 20} labelfont 1 labelsize 12
  175.           }
  176.           menuitem {} {
  177.             label {-40dB}
  178.             xywh {30 30 100 20} labelfont 1 labelsize 12
  179.           }
  180.           menuitem {} {
  181.             label {-60dB}
  182.             xywh {40 40 100 20} labelfont 1 labelsize 12
  183.           }
  184.           menuitem {} {
  185.             label {-80dB}
  186.             xywh {50 50 100 20} labelfont 1 labelsize 12
  187.           }
  188.           menuitem {} {
  189.             label {-100dB}
  190.             xywh {60 60 100 20} labelfont 1 labelsize 12
  191.           }
  192.         }
  193.         Fl_Choice start {
  194.           label Start
  195.           callback {pars->Pstart=(int) o->value();} open
  196.           xywh {670 340 50 15} down_box BORDER_BOX labelfont 1 labelsize 10 align 1 textsize 12
  197.           code0 {o->value(pars->Pstart);}
  198.         } {
  199.           menuitem {} {
  200.             label Zero
  201.             xywh {30 30 100 20} labelfont 1 labelsize 12
  202.           }
  203.           menuitem {} {
  204.             label RND
  205.             xywh {40 40 100 20} labelfont 1 labelsize 12
  206.           }
  207.           menuitem {} {
  208.             label {Max.}
  209.             xywh {50 50 100 20} labelfont 1 labelsize 12
  210.           }
  211.         }
  212.       }
  213.       Fl_Group freqsettingsui {
  214.         label FREQUENCY
  215.         xywh {440 5 290 135} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 align 17
  216.       } {
  217.         Fl_Group freqenvelopegroup {
  218.           label {SUBsynth - Frequency Envelope} open
  219.           xywh {445 65 205 70} box FLAT_BOX color 51 align 144
  220.           code0 {o->init(pars->FreqEnvelope);}
  221.           code1 {if (pars->PFreqEnvelopeEnabled==0) o->deactivate();}
  222.           class EnvelopeUI
  223.         } {}
  224.         Fl_Check_Button freqee {
  225.           label Enabled
  226.           callback {pars->PFreqEnvelopeEnabled=o->value();
  227. if (o->value()==0) freqenvelopegroup->deactivate();
  228.     else freqenvelopegroup->activate();
  229. o->show();
  230. freqsettingsui->redraw();}
  231.           xywh {445 68 55 15} down_box DOWN_BOX labelfont 1 labelsize 10
  232.           code0 {o->value(pars->PFreqEnvelopeEnabled);}
  233.         }
  234.         Fl_Counter octave {
  235.           label Octave
  236.           callback {int k=(int) o->value();
  237. if (k<0) k+=16;
  238. pars->PCoarseDetune = k*1024+
  239.    pars->PCoarseDetune%1024;}
  240.           tooltip Octave xywh {670 50 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  241.           code0 {int k=pars->PCoarseDetune/1024;if (k>=8) k-=16;}
  242.           code2 {o->value(k);}
  243.         }
  244.         Fl_Counter coarsedet {
  245.           label {Coarse Det.}
  246.           callback {int k=(int) o->value();
  247. if (k<0) k+=1024;
  248. pars->PCoarseDetune = k+
  249.    (pars->PCoarseDetune/1024)*1024;}
  250.           tooltip {Coarse Detune} xywh {655 115 60 20} labelsize 11 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  251.           code0 {int k=pars->PCoarseDetune%1024;if (k>=512) k-=1024;}
  252.           code2 {o->value(k);}
  253.           code3 {o->lstep(10);}
  254.         }
  255.         Fl_Slider detune {
  256.           callback {pars->PDetune=(int)o->value()+8192;
  257. detunevalueoutput->do_callback();}
  258.           tooltip {Fine Detune (cents)} xywh {495 25 230 15} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  259.           code0 {o->value(pars->PDetune-8192);}
  260.         }
  261.         Fl_Value_Output detunevalueoutput {
  262.           label Detune
  263.           callback {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  264.           xywh {448 25 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  265.           code0 {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  266.         }
  267.         Fl_Check_Button hz440 {
  268.           label 440Hz
  269.           callback {int x=(int) o->value();
  270. pars->Pfixedfreq=x;
  271. if (x==0) fixedfreqetdial->deactivate();
  272.    else fixedfreqetdial->activate();}
  273.           tooltip {set the base frequency to 440Hz} xywh {555 45 50 15} down_box DOWN_BOX labelfont 1 labelsize 11
  274.           code0 {o->value(pars->Pfixedfreq);}
  275.         }
  276.         Fl_Dial fixedfreqetdial {
  277.           label {Eq.T.}
  278.           callback {pars->PfixedfreqET=(int) o->value();}
  279.           tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {610 45 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1
  280.           code0 {o->value(pars->PfixedfreqET);}
  281.           code1 {if (pars->Pfixedfreq==0) o->deactivate();}
  282.           class WidgetPDial
  283.         }
  284.         Fl_Choice detunetype {
  285.           label {Detune Type}
  286.           callback {pars->PDetuneType=(int) o->value()+1;
  287. detunevalueoutput->do_callback();} open
  288.           xywh {655 85 70 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  289.           code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  290.           code1 {o->value(pars->PDetuneType-1);}
  291.         } {}
  292.       }
  293.       Fl_Check_Button stereo {
  294.         label Stereo
  295.         callback {pars->Pstereo=(int) o->value();}
  296.         xywh {440 325 55 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 10
  297.         code0 {o->value(pars->Pstereo);}
  298.       }
  299.       Fl_Button {} {
  300.         label Clear
  301.         callback {for (int i=0;i<MAX_SUB_HARMONICS;i++){
  302.     h[i]->mag->value(127);
  303.     pars->Phmag[i]=0;
  304.     h[i]->bw->value(64);
  305.     pars->Phrelbw[i]=64;
  306. };
  307. pars->Phmag[0]=127;
  308. h[0]->mag->value(0);
  309. SUBparameters->redraw();}
  310.         tooltip {Clear the harmonics} xywh {445 365 70 20} box THIN_UP_BOX labelfont 1 labelsize 12
  311.       }
  312.       Fl_Group bandwidthsettingsui {
  313.         label BANDWIDTH
  314.         xywh {220 5 220 135} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 align 17
  315.       } {
  316.         Fl_Group bandwidthenvelopegroup {
  317.           label {SUBsynth - BandWidth Envelope} open
  318.           xywh {225 65 205 70} box FLAT_BOX color 51 align 144
  319.           code0 {o->init(pars->BandWidthEnvelope);}
  320.           code1 {if (pars->PBandWidthEnvelopeEnabled==0) o->deactivate();}
  321.           class EnvelopeUI
  322.         } {}
  323.         Fl_Check_Button bwee {
  324.           label Enabled
  325.           callback {pars->PBandWidthEnvelopeEnabled=o->value();
  326. if (o->value()==0) bandwidthenvelopegroup->deactivate();
  327.     else bandwidthenvelopegroup->activate();
  328. o->show();
  329. bandwidthsettingsui->redraw();}
  330.           xywh {225 67 55 15} down_box DOWN_BOX labelfont 1 labelsize 10
  331.           code0 {o->value(pars->PBandWidthEnvelopeEnabled);}
  332.         }
  333.         Fl_Value_Slider bandwidth {
  334.           label {Band Width}
  335.           callback {pars->Pbandwidth=(int) o->value();}
  336.           xywh {225 40 115 15} type {Horz Knob} box FLAT_BOX labelsize 10 align 1 maximum 127 step 1
  337.           code0 {o->value(pars->Pbandwidth);}
  338.         }
  339.         Fl_Value_Slider bwidthscale {
  340.           label {B.Width Scale}
  341.           callback {pars->Pbwscale=(int) o->value()+64;}
  342.           tooltip {How much I increase the BandWidth according to lower/higher harmonics} xywh {345 40 90 15} type {Horz Knob} box FLAT_BOX labelsize 10 align 1 minimum -64 maximum 63 step 1
  343.           code0 {o->value(pars->Pbwscale-64);}
  344.         }
  345.       }
  346.       Fl_Group globalfiltergroup {
  347.         label FILTER
  348.         xywh {440 140 290 185} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  349.         code0 {if (pars->PGlobalFilterEnabled==0) o->deactivate();}
  350.       } {
  351.         Fl_Group filterenv {
  352.           label {SUBsynth - Filter Envelope} open
  353.           xywh {445 250 275 70} box FLAT_BOX color 51 align 144
  354.           code0 {o->init(pars->GlobalFilterEnvelope);}
  355.           class EnvelopeUI
  356.         } {}
  357.         Fl_Group filterui {
  358.           label {SUBsynthl - Filter} open
  359.           xywh {445 170 275 75} box FLAT_BOX color 50 align 144
  360.           code0 {o->init(pars->GlobalFilter,&pars->PGlobalFilterVelocityScale,&pars->PGlobalFilterVelocityScaleFunction);}
  361.           class FilterUI
  362.         } {}
  363.       }
  364.       Fl_Check_Button filtere {
  365.         label Enabled
  366.         callback {pars->PGlobalFilterEnabled=o->value();
  367. if (o->value()==0) globalfiltergroup->deactivate();
  368.     else globalfiltergroup->activate();
  369. o->show();
  370. globalfiltergroup->redraw();}
  371.         xywh {445 145 85 20} down_box DOWN_BOX labelfont 1 labelsize 12
  372.         code0 {o->value(pars->PGlobalFilterEnabled);}
  373.       }
  374.       Fl_Button {} {
  375.         label C
  376.         callback {presetsui->copy(pars);}
  377.         xywh {540 370 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  378.       }
  379.       Fl_Button {} {
  380.         label P
  381.         callback {presetsui->paste(pars,this);}
  382.         xywh {570 370 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  383.       }
  384.     }
  385.   }
  386.   Function {refresh()} {} {
  387.     code {for (int i=0;i<MAX_SUB_HARMONICS;i++) h[i]->refresh();
  388. vol->value(pars->PVolume);
  389. vsns->value(pars->PAmpVelocityScaleFunction);
  390. pan->value(pars->PPanning);
  391.  
  392.  
  393. bandwidth->value(pars->Pbandwidth);
  394. bwidthscale->value(pars->Pbwscale-64);
  395. bwee->value(pars->PBandWidthEnvelopeEnabled);
  396. if (pars->PBandWidthEnvelopeEnabled==0) bandwidthenvelopegroup->deactivate();
  397.     else bandwidthenvelopegroup->activate();
  398. bwee->show();
  399. bandwidthsettingsui->redraw();
  400.  
  401. detunevalueoutput->value(getdetune(pars->PDetuneType,0,pars->PDetune));
  402. freqee->value(pars->PFreqEnvelopeEnabled);
  403. if (pars->PFreqEnvelopeEnabled==0) freqenvelopegroup->deactivate();
  404.     else freqenvelopegroup->activate();
  405. freqee->show();
  406. freqsettingsui->redraw();
  407.  
  408. detune->value(pars->PDetune-8192);
  409. hz440->value(pars->Pfixedfreq);
  410.  
  411. fixedfreqetdial->value(pars->PfixedfreqET);
  412.  
  413. int k=pars->PCoarseDetune/1024;if (k>=8) k-=16;
  414. octave->value(k);
  415.  
  416. detunetype->value(pars->PDetuneType-1);
  417.  
  418. k=pars->PCoarseDetune%1024;if (k>=512) k-=1024;
  419. coarsedet->value(k);
  420.  
  421. filtere->value(pars->PGlobalFilterEnabled);
  422. if (pars->PGlobalFilterEnabled==0) globalfiltergroup->deactivate();
  423.     else globalfiltergroup->activate();
  424. filtere->show();
  425. globalfiltergroup->redraw();
  426.  
  427. stereo->value(pars->Pstereo);
  428. filterstages->value(pars->Pnumstages);
  429. magtype->value(pars->Phmagtype);
  430. start->value(pars->Pstart);
  431.  
  432. ampenv->refresh();
  433. bandwidthenvelopegroup->refresh();
  434. freqenvelopegroup->refresh();
  435. filterui->refresh();
  436. filterenv->refresh();} {}
  437.   }
  438.   Function {SUBnoteUI(SUBnoteParameters *parameters)} {} {
  439.     code {pars=parameters;
  440. make_window();} {}
  441.   }
  442.   Function {~SUBnoteUI()} {} {
  443.     code {//for (int i=0;i<MAX_SUB_HARMONICS;i++) delete (h[i]);
  444. SUBparameters->hide();
  445. delete(SUBparameters);} {}
  446.   }
  447.   decl {SUBnoteParameters *pars;} {}
  448.   decl {SUBnoteharmonic *h[MAX_SUB_HARMONICS];} {}
  449. } 
  450.